home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM BV3 / BMUG PD-ROM Version BV3 (CDRM1097900).iso / Programming / Programming Utilities / Randoms / main < prev    next >
Text File  |  1991-09-21  |  550b  |  35 lines
  1. program RandTest;
  2.     uses
  3.         Randoms;
  4.  
  5.     const
  6.         MAXINT = 400;
  7.         NUMPERHOLE = 200;
  8.  
  9.     var
  10.         numbers: array[1..MAXINT] of integer;
  11.         loop: Longint;
  12.         index: integer;
  13.  
  14.  
  15. begin
  16.     InitRandoms;
  17.     for loop := 1 to 10000 do
  18.         begin
  19. {• UNCOMMENT ONE OF THESE THREE INDEX ASSIGNMENTS •}
  20.  
  21. {index := normal((200), 50, 5);}
  22. {index := uniform(1, 400, 5);}
  23. {index := exponent(20, 5);}
  24.             numbers[index] := numbers[index] + 1;
  25.         end;
  26.     ShowDrawing;
  27.     for loop := 1 to MAXINT do
  28.         begin
  29.             Moveto(loop, trunc(numbers[loop] * (100 / NUMPERHOLE)));
  30.             Line(0, 1);
  31.         end;
  32.  
  33.  
  34.  
  35. end.